home *** CD-ROM | disk | FTP | other *** search
/ El Mac 1 / Magazine.iso / EL MAC 1 / Shareware / Applications / directtex Pro 2.0 / DirectTeX.6 / Installer-Files / Tools-Pro / Tools-Pro folder / DirectoryMenu < prev    next >
Encoding:
Text File  |  1995-03-27  |  1.0 KB  |  21 lines  |  [TEXT/TeX+]
  1. #
  2. # This script will add the directory menu.
  3. # Usage: DirectoryMenu.
  4. #
  5.  
  6. Exit 0 If $# ≠ 0
  7. If $dt_DirMenuID = "" [Set -x dt_DirMenuID "`AddMenu -v Directory ≥ Dev:Null`"
  8. DeleteItem $dt_DirMenuID; If $dt_DirSubID ≠ "" [DeleteMenu $dt_DirSubID
  9. Set -x dt_DirSubID "`AddMenu -v -h -b $dt_DirMenuID 'Modify Menu' ≥ Dev:Null`"
  10.  
  11. AddItem -m $dt_DirSubID 'Add Directory…' [AddDirectory `GetFileName -d || Exit -1`
  12. AddItem -m $dt_DirSubID 'Edit Menu' [Edit $dt_ConfigFiles∂DirectTeX:DirectoryMenu-Data
  13. AddItem -m $dt_DirSubID 'Update Menu' [CloseWindow DirectoryMenu-Data ∑ Dev:Null || Echo -n; DirectoryMenu
  14. AddItem -m $dt_DirMenuID 'Set Directory…' [Directory `GetFileName -d || Exit -1`
  15. # AddItem -m $dt_DirMenuID 'Show Directory…' [Alert -s -note The current directory is∂n`Directory`
  16. AddItem -m $dt_DirMenuID 'Directory Listing/I' [ClearScreen -s; Dir
  17. AddItem -m $dt_DirMenuID '(-' ''
  18.  
  19. Echo -n >> $dt_ConfigFiles∂DirectTeX:DirectoryMenu-Data
  20. For i `Catenate $dt_ConfigFiles∂DirectTeX:DirectoryMenu-Data` [AddItem -n -m $dt_DirMenuID -n $i Directory∂ $$i
  21.